UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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**F I LE**1D**RMSTESTS 


a ee ed ee ee 
a ed ee ee ae ee ee 
a 


os 
—— 
oe 
nn NNNM 
nn NUNN 
nn ow nn 
nn nn on 
nw nn “Vw 
mn nn nn 
mn nw nw 
nn nn nn 
NNNwW nn 
NNNwW nw 
usu eS Reed 
usu ww 
wus ww wu 
uu wu verry 
wus uw wus 
wus wu wu 
wu wus wus 
uw ui wu 


CUTS TVS Ve Tew vu Teel ve lee Tee Tuervelvurvy) 
Wd dd ss st ds 


ee eo 
ed ee eee ee ee oe 
— 


oo 
to 
— 
nun OnMnwM 
ow NNNM 
nn nn nw 
nw nn nn 
nn nn nw 
nn own nn 
nw nn nn 
nn nn nn 
NNN on 
NNNM own 


“nw MMMM 
nn nn nn 
nn “wn “nw 
nn un nn 
nn “wn non 
“un nn “wn 
“nn nm “wn 
AMMM nn 
MMmnn nn 
em] Conia 
—— deed 


LLLLLLLLLL 
LLLLLLLLLL 


wel 


INDEXED FILE TEST PROGRAM ; Bie. 19-SEB-1986 01:53 


OOOCOSCOSCOOCCOOSOOOOOOOOOOOOSOOOSOSOOOOSOSOOOOOOOOOOOOO 


SOOoooooooooooooooooooooooooooooooooooooooooooooooooooooooo 


DOOOCOCOCOSOSOSOSOOSSOSOSOSOSOSOSOSOSOSOSOOOOCOSOOSOOOCOOOOOOOOOoO 


Soooooooooo 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSE 


VMS M 04-00 p 1 RM! 
P. SRC STB.MAR:1 0 C4) voi 
UT, FI @ 
E fes a 


FINPUT,FLD_DESCR,FLD 
AM>, <GBL,LONG> 


Sim 


73 

SEP=1984 2] M 

ERNAL REPORT_ERROR,BEG_DES D 
IN a°6 3 - § DE P 


RMSTEST8,00 RMSTEST,<IN 


ov 
STE 
ESC 
ROG 


TF 


R,B tE 


Eb 


; ee 
UET 
EXT C EGP NL 
$BEG ‘Soe ME6 FIL T 
: Macros... 
re i STORE STRING,PRE 


SAV 
“PSECT __SRMSNAM 
$$. THPX=7 

PRE 


sASCII XSTRINGZ 
$$. TMPX1=.-$$. TMPX 
«RESTOR 


[ENDM © STOR 
«MACRO BEGIN TSTNAM 
STORE <TSTNAM> 
MOVL #$$.TMPX,BEG_DESCR+4 =; addr 
#$$.TMPX4 ,BEG_DESCR > len 
BEGPUT 
.ENDM BEGIN 
.MACRO FINISH TSTNAM 
<TSTNAM> 


MOVL #$$.TMPX,FIN DES 
MOVL #5$.TmPx{ .FIN_DE 


F INPU 
-ENDM FINISH 
-MACRO FIELD FLDNAM 
<F > 


LONAM 
WSS.TMPX.FLD_DESCR+4 =; addr 
MOVL  #$$.TMPX1,FLB_DESCR : len 

FLDPUT 


-ENDM FIELD 


; store any carriage control info 


R+4 ; addr 
CR ; len 


MBPT ?L ; bpt, maybe? 
VERBOSITY,L 


-ENDM MBPT 


t IXVAR1 == program to create and populate the rms-11 file 
; idxvri.dat ; records are variable length 
3 keys cannot change; dupes are fixed 


-ENABL DBG 
»-NLIST MEB 
SRMSDEF 


PIPOIPOPININININIDS 2 4 I MFOOOCOOCOOCOCOCOC OOOO OOOOOOWWOWOWMWOW0 IN NNINN 
DNAMNE WN 9 OD NOAUE WN SO OOO NA UE WN OS OD NOAU EWN 0 OONOAUE WIN CO OONOUE Win 
wo 
“ 
wo 
c£ 


a a we a a Ss ss 2 4 2 8 Ht ts 
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RMSTESTS INDEXED FILE TEST PROGRAM ; 16-SEP-1984 01:51: AX/VMS Macro Vv04-00 P 
voL-00 or3Ep= 1382 b4:35:71 HOt SResancrestacmar:1 P29" (2, 
9 ; buffer area 
0000008 DELBUF: .BLKB He ; store deleted record numbers 
8 BASLEN: .WORD « ; record 0 base Length (changes) 
001 : PSTEP: .WORD 1 3; pseudo-step buffer 
00000624 : : § RFABUF: .BLKW 768. ; tfa storage, in rec # order 
624 ; 
é : 33 ; Step and first have to be such that recnum is not duplicated in 255 puts 
4 141° 
FF 0624 rt STEP: -BYTE gs ; set byte by odt to desired step val 
00 ? 2 rf BYTE ; key to get 1st record on find random 
FF 3 § $2 FIRST: .BYTE 255. 3; set byte by odt to desired step val 
00 0627 <3 COUNT: .BYTE 0 
00 0628 48 LAST: .BYTE 0 
Be 9 49 OPERATION: 
00000000 0629 50 - LONG 
ae 
062D a : this is the record buffer: 
O6od 185° 
o00R6er 062D 56 MASBUF: .BLKB 2 3 rec # byte. dup control byte 
4C 4B 4A 49 48 47 $8 45 44 43 42 41 062F 57 eASCII /ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEF GHI JKLMNOPQRSTUVWXYZ/ 
58 57 56 55 54 28 52 51 50 4F 4E 4D 06 ° 
4A 49 48 47 $$ 45 44 43 42 41 5A 59 bee 
56 55 54 53 52 51 50 4F 4E 4D 4C 2 653 
5A 59 58 5 beak 158 
0606 159 RECNUM: .REPT 131. ; rec # byte, nbytes fill, gheck byte, 
bee 160 -WORD 0 : 5 bytes for rfa uedate, 255.-n bytes 
0000 066 161 -ENDM ; left over (n= rec#) 
ae 
0769 164 : structure area 
0769 165; 
rege? 
0000 4 198 -PSECT DATA,LONG 
18 FAB: SFAB FAC=<PUT,GET,UPD,DEL>,- 
00 170 FNM=<TST$DISK: IDXVAR1 .DAT>,- 
171 ORG=1DX,- 
0 1% XAB=XABO, = 
0 17 AL G39 7 
174 DEQ=100,- 
175 NAM=NAMBLK, - 
0 178 FOP=<NAM>,=- 
if BKS=1 
179 NAMBLK: SNAM 
0B 181 RABI: SRAB RAC=KEY,- 


F 14 
ene Te are INDEXED FILE TEST PROGRAM ; 1 mi eh 01:34:38 a ie Macro M t's 


¢ 00 
UETP.SRCJRMST M. 


- Page 
18.MAR;1 we i, 


RBF =MASBUF ,- 
Uereetiee . 
$2=31 


U 
KBP=STEP+1, - 
KSZ= 
ROP=<KGE>, - 
MBF=10,- 
FAB=FABI 


key is a,a-z(2),a,a,8,8,a°2(2),a-2z(2) ,rec# 
erefore they are “ordered by recnum 


XABO: tics is NXT=XAB1,- “i 
3524242424262 gs 


key is a,a-2(2),a,8,8,8,a72(2),a-z(2) ,rec# 
therefore they are ordered by recnum 


XAB1: SXABKEY NXT=XAB2,- 
STgaet 88s cfct 88,83 


key is a-z(2),a-2(2),a-z(2),a,a,a,a-b,a 
therefore recnums appear in order of input 


83+ 2,2>,7 


£19=58,82:58.1 1100 ‘ts. 


SIZ=< 
REF=2 


XAB2: POsece, NXT=XAB 


; key ig a,a,a,a-z(2),a-2(2) ,a-2(2) ,a-b, (127,128) 
: + Be AE mostly dups, but not all 


XAB3: Posse, NXT=XAB4,- 


eT gest 9488,8825812°1 


; key is a-a,a-z(2),recnum 
; so is ordered by recnum 


XAB4 : SXABKEY NXT=XAB5,- 
=<2,2>,- 
SIlz=< 7,5%>,- 
REF =4 


PPP PPLE EF FODWWWWDWWDWM MOOMMOOOAMAOCWWOCOCOCOCOCOC LS SLL LL FF FOOOCOCOCOCOO 


AWAWIAIAI AAI WICIOPSPUINININIPININIDD 2 9 PP FOO OCOCOQOOCOOCCOOOOWOOOOOOOMdMa@caocNCDED 
BONA MAE WO OD NAME WIN | O OO NAME WIN O OO NIA E WIN 3 CO OO NAM E WIN" O OO NOUNS 


PROPIPOPINPINININININIG CO 99 9 FFF SF WOW HOO OI OI OOO FL LLL HLL KK THM MHMOOWTIVOVIoOw 


naan nnn naw an an fn ln leo lola lolololololololololololo) 
PROPOPEPONONPONYPONODS 2 2 A OOO OP OP OP OP OP SS SS SS SS SS Ss 2 COO 


G 14 
ioeet Pad He Boat REE LEELA WOMIMEARNAETENMs Py 


veh 


: key is rec# only 


XABS: prsexey NXT=XAB6,- 
POS=<0>,- 


7 39 
7 if 
7 4 
7 4 
: és 
7 4 
7 *8 SIZ=<1>,- 
cy is REF =5 
BC 49; 
BC 29 : key is a 
+! : therefore records are in input order 
BC : 
BC 3 XAB6: puaeeey NXT=XAB7,- 
8 BC 55 POS=<2>,- 
BC 2§ S$IZ=<1>,- 
8 ‘f REF =6 
030 59 ; 
030 60 ; key is (127,128) 
8 S ) 3; mostly all dups 
030 8g XAB7: SXABKEY POS=<1>,- 
8 0 64 §12=<1>,- 
0 65 REF =7 
O38 569 
54 68 ; 
e? $3 : begin code 
0 34 71 ° 
00000769 2 -PSECT __RMSTEST,LONG 
789 50% RMTSINDEX 
769 «275 . 
0000 0769 18 START: .WORD 0 
5A OQ0000000'EF 9E 07 7 MOVAB FAB1,R10 ; address of fab 
ue A: BEGIN <INDEXED TEST> 
FE9E CF D& OQ7 7 CLRL alae : indicate create operation 
£863" 30 g : » Seer ATE 4. aad -ERR=REPORT_ERROR; do create 
79D 
5A oooonge*Er 9E 079D 3 1$: MOVAB 1,R10 
FE81 CF D6 7A : INCL OPERATION : indicate connect operation 
s - 
7A 6 ERR=REPORT_ERROR : do connect 
F846" 30 rer BSBW ERR 
ree CF 7F 8F 90 Q7BA ; 2$: MOVB #127. ,MASBUF +1 ; set up for inserts 
3 FE62 CF QA 703 a MOVZBL FIRST,R3 3 start record # 
53 FEFFFFFOO 8F ga 7C 35 PNEXT: BICL2 #*X<FFFFFFOO>,R3 : insert the records 
4th CF oe 9 MOVB R3,MASBUF 
FE8D CF 9 7D 94 MOVB »RECNUM 
00000664 'E3 9 706 95 MOVB R3,L“°RECNUM+1(R3) 


velia 


FE13 


FDF2 


54 


a 


MMmDOMOMom 
RNOUlOMWwNO 


FDCA CF 
5 6 

0008024" BF 
F7B1 CF D 
FDBS CF 04 


53 
54 


@ 
o 
We 
~" 


~“ 


— 
ww 


MIUIMUIN & & AAAI | “QOOCO RN NMMMoOG? 


NAA 


SeSe= 


VAM DOAOWE HR PWT SAOWLOMOOKOM OOD HL NO NHS -MDOn—9 Co 


>>>> 


A NDOouwocomnwnowosg 


DNAS BB BE EEE PWN A AAA AUIAIRIRINININININPINININ) 3 BOO OO OOOO O00 0 


PRS ODD NA NE WIN OOO NAVE WIN OOD NOA UE WN 3 CO OOO NAEP  OOONAU EWR" OONO 


INDEXED FILE TEST “ROGRAM ; 


UNEXT: 


DAT_OK: 


H 14 


SRAB_STORE teen 0,- 
= 
ADDW2 BASLEN,RABSW_RSZ(R10) 
MOVZBL #2 OPERATION ; 
$PU RAB=R10,ERR=REPORT_ERROR 
BSBW sé 
HOVZBL #6,R 
MULL2 R3,R 
MOVL  RABSL_RFAO(R10),- 
L“RFABUF (RO) : 
MOVW RABSW RFAG(RIO} = 
L ORF RBUF #4 (R ) ; 
MCOMB MASBUF+ ,MASBUF +1 
CLRB ss L“RECNUM#1(R3) 
MOVZBL STEP,R 
ADDL2 RO,R$ 
ADDB2 #4. COUNT 
BNEQ PNEXT 
SUBB3 RO,R3,LAST ; 
JSB CHKALL : 
SRAB_STORE RAB=R10,- 
RAC=KEY 
NCL ‘OPERATION 
FIND RAB=R10,ERR=REPORT_ERROR 
BSBW R 
$RAB_STORE RAB=R10,- 
RAC=SEQ 
MOVZBL LAST,R3 
MULL3 #6,R3,R4 
ADDL2 #REABUF,R4 
MOVW  #61.,BASLEN 
MOVZBL #4,OPERATION 
GET RAB=R10,ERR=REPORT_ERROR 
SBW CER 
MOVZBL HASBUF .R6 
CMPL = R6R 
EQL —dDAT_OK 
FIELD <DATA> 
MOVA RECN m+2,R0 
ADDL2 R3,R : 
MOVL (R4)+,(RO)+ : 
MOVE (R4)+,(RO)+ 
INCL 
ADDW2 #3. RABSW RS2(R10) 
MOVZBL #5 OPERATION 
SUPDATE RAB=R10,ERR=REPORT_ERROR 
MOVAL RECNUM+2,RO F 
ADDL2 R3,R 
CLRB = = 1 (RO) 
CPL RABSL_RFAOQ(R10),(RO) 
FIELD <DATA (RFA) AFTER UPDATE> 


"SrSEp=1986 Ba:22:it 


; indicate put 


6 char long 


; move last ke 


check all t 


AX/VMS Macro 
UETP.SRCJIJRMST 


he 


; move rfa of record 


put into 
indexes 


v04-00 
EST8.MAR; 1 


last 


position to end of buffer 
move rfa in for update 


position to end of buffer 


check rfa after update 


Page dy 


I 
ene tears INDEXED FILE TEST PROGRAM ; a tb 9) 33:38 a ie VMS Macro V04-00 Page (3) 


-$ UETP.SRC RMSTESTS. MAR; 1 
80 4 F 3 RFA_OK: CLRL (RO)+ 
60 14 AA $1 Fg 2 + CMPB RABSW_RFA4(R10), (RO) 
ee FC BEQL RFA_OR1 
F § FIELD <DATA (RFA) AFTER UPDATE> 
1 RFA_OK1 
$9 94 1 8 CLRB (RO) 
96 091 INCB R3 ; r3 started as last hey put 
91 60 ; and they increase by 
9 13° 091 61 Beat 10$ 
FF 31 0919 96 hy UNEXT 
it 65 10%: RAB _STORE Geten 9° 
FOFB CF 01 «BO 09 é ge MOV ot JPSTEP. Spt 
QOOOOASS'EF 16 , . 6 JSB CHK 
92D 28 3 
92D § 3; test delete 
92D 0; 
92D 71 
pcre CF 94 92D i CLRB COUNT 
53 FCFS CF oA 931 7 MOVZBL LAST,R3 
4 : a SRAB_STORE RAB=R10,RAC=RFA 
FCEA gf 04 9A O93A 76 DNEXT: MOVZBL #4,OPERATION 
ee 
00000024'E0 0 3e8 7 MOVL LREABUF (RO) - 
10 AA 948 0 RFAO(R10) e rfa into rab for get 
14 AA 00000028'EO B80 ae8 1 MOVW eG! RABSW REAGCRI 10) 
scant 999 : SET RAB=R10,ERR=REPORT_ERROR; get the record, locking it 
50 FCBC CF 9A 0967 4 MOVZBL it 
00000000'EO FCBD CF 90 366 5 MOVB slp LDELBUF (RO) : store away its rec number 
FCAF CF 06 9A 9 $ MOVZBL 
mane en 7A f SDELETE RAS>RIO. ERRS REPORT _ERROR 
FC97 fe 9 896 9 INCB COUNT 
53 8 99 90 ADDB2 #8,R3 
A 1 43 $3 BNEQ DNEXT ; deleted 32 records (every 8th) 
99 93; 
144 32 ; check deleted records no longer appear anywhere 
99 96 * 
35 AA O07 90 099 3 MOVB #7,RABSB_KRF (R10) 3; do all 8 keys 
4.44 38 SRAB_STORE RAB=R10,RAC= SEQ * 
FC87 CF 08 9A 099 400 KNEXT: MOVZBL #8.,OPERATION 
reac’ 3 one ? 1 7 hag cme -ERR=REPORT_ERROR; rewind on new key of reference 
53 36 8 9B4 4 § MOVL #56.,R ; get all the records sequentially 
FC6OD CF «604A 987 4 4 MOVZBL #4, OPERATION 
9BC 4 $ GNEXTD: $GET paenate. ERR=REPORT_ERROR 
r62k cr OF OME MOVA Caur. R 
83 See Gh OCH bons 208 ADDL bey RO 


J 14 
eneTesrs INDEXED FILE TEST PROGRAM ; 19736-1388 0) 34:38 a es Macro v04-00 Page 7 


$ 4 UETP.SRCIRMSTESTS.MAR;1 (1) 
44 410 CHK_DEL: 
FCS1 CF $6 %} 44 a cnee (R6)+,MASBUF ; make sure it wasn't deleted 
90 41 FIELD <DATA (RECORD WAS DELETED)> 
50 56 D1 O9F 414 DEL_OK: CMPL ‘ 
bf 1F O9F 415 BLSSU ck DEL 
C1 F5 O9F 118 is § Me R3,GNEXTD 
SFB 4] GET RAB=R : verify end of file 
0001827A 8F 50 oD AOS 41 CMPL RO, #RMS$_EOF 
8 } A 41 BEQL 
FSFO* AOD 4 BSBW EOF PUT 
Al 4 MBPT 
EB cor 
35 AA 97 OAIB 426 ° DECB RABSB_KRF (R10) 
50 18 QAIB 425 BGEQ KNEXT 
FCO7 CF 9A OAI 4 § MOVZBL #7,OPERATION 3; indicate close 
SA sp tf F 4 A ; 4 MOVAL FA 
04 AA 1008090 8F D A 4 3 MOVL #<F ABSM_NAM!FABSM DLT>, FABSL_FOP(R10) 
mete on AS 4 ; SCLOSE FAB=R107ERR=REPORT_ERROR 
AS 431 FINISH <INDEXED TEST> 
04 OAS 4 ; RET 
AS 4 
Rae 
Snag 4 § : subroutines 
QOA5S9 «= 437 
OAs 38 
BAe rey : this routine checks the indices in various ways 
AS59442 * 
53 FBCB CF 9A QA5S9 108 CHKALL: MOVZBL LAST,R3 3; set up to check index on key 0 
093 3 ASE 444 BSBW CHKIDX ; and do so 
53 FB 3 CF A QA61 445 MOVZBL LAST,R3 3 set up to check index on key 1 
ee ee a 
53 FBB8 CF 3p A6C $68 MOVZBL_ LAST,R3 3 set up to check index on key 4 
v4 ret SRAB_STORE pena} *-" 
007C¢ 3 A? 451 SBW CHKIDX ; and do so 
53 FBAC CF A OA? $26 MOVZBL LAST,R3 ; set up to check index on key 5 
35 AA A7D 4 INCB RABSB_KRF (R10) 
71 3 A p 454 BSBW CHKIDR ; and do so 
F598 gf FB9D CF A 455 MOVZBW STEP,PSTEP 3; set up to check index on key 6 
+ PB TA 88 OaBe a8e Tee Oe ee cao) 
005F 30 A 3s BSBW CHKIDR 3; and do so 
53 FB8D CF A OA9 45 MOVZBL_ FIRST,R3 3; set up to check index on key 2 
a 2 9 SRAB_STORE papnaiee* 
4 10 OA9 4 § BSBB CuK IDE ; and do so 
50 63 3C OAA 4 MOVZWL fe ek 
gg’ FB7A CF on AA t ¢ Se SL FIRST RS ; start at beginning 
35 AA 96 OAAD 466 INCB  —- RABSB_KRF(R10) : index 35 


BEQL RFA_OR100 
FIELD <RFA> 


RFA_OK100: 
CMPW RABSW_RFA4(R10) ,L“RFABUF +4 (RO) 
RFA_OR101 


BEQL 
FIELD <RFA> 


K 14 
RMSTESTS INDEXED FILE TEST PROGRAM ; 16-SEP-1984 01:51: AX/VMS Macro V04-00 Pa 
F020 ae aan 8:35:98 HUETP sre RMSTESTS.MAR;1 - dy 
FB71 CF 80 8F 9 AB 467 MOVB #128. ,COUNT 3; check half 
is AB 4 8 BSBB CHKIDX 
regs 4 &0 . ? 3 ae Crete ; setup to check second half 
FBSF CF 3 St 6 Ace 47 MOVB #158. COUNT 
1 AC 47 BSBB GNEXT 3 cont where Left off 
53 FBS58 CF 9A OACA 47 MOVZBL FIRST,R3 
ACF 6474 $RAB_STORE RAB=R10,- 
FBGE CF «6080 BF OO ADs the vB #128... COUNT 
19 10 OAD 139 SBB ued ok 
a EBtG EF BA neo 258 MOVeBE STEP. RG” 
£8 gf 3 AES 480 ADEE R¢ rs 
FB39 CF 80 er AEB 481 OVB #128.,COUNT 
Boy AE 4 ¢ BSBB NEXT 
35 AA 94 = OAF 4 CLRB RABSB_KRF (R10) 
a 
AF4 & 3 
AFS & § 3 this routine checks one index 
pare : 3 3; input: r3 - start record number 
OAFS 490 ° 
“4 $3) CHKIDX: SRAB_STORE yy ged 
FB2C CF O03 QA OAF8 13 MOVZBL #3, OPERATION : indicate find function 
OAFD 494 SFIND RAB=R10,ERR=REPORT_ERROR 
0B0C 495 SRAB_STORE RAB=R10,- 
oats 238 RAC=SEQ 
53 FFFFFFOO 8F CA pete 498 GNEXT: BICL2 @*X<FEFFFFOO>,R3 
FBOD CF 04 QA 0B1 499 MOVZBL #4,0P : indicate get function 
6 FARE CEA O62 804 eel: Agen 0 ,gRP=REPORT ERROR 
53 560 o91s«OB 0 CMPB R63 
ss 
SecA 808 
53 eoanenss "ts 91 been 5] D_OK: CMPB L“RECNUM+1(R3) ,R3 
1 13 51 8 BEQL OK1 
33 8 FIEL <BATA> 
50 22 AA F4B4 gf A3 6 09 D_OK1: SUBW BASLEN.RABSU_RSZ(R10) .RO; calc rec # from record Length 
53 g Bt gf 19 CMPW RO,R 
' te 12 PietD eRgz> 
9 1 
50 9¢ GA 9 14 RS2: povre. #6,R 
50 C4 C 15 MULL R3,R 
00000024'EO 10 AA b F 1 CHEL RABSL_RFAO(R10) ,L“RFABUF (RO) 
y 1 


w 
SSSSSe 
oommerm 


00000028"E0 14 AA BI 
5 1 


L 14 
ars 18 INDEXED FILE TEST PROGRAM ; i ts Lat PS 9 gi 3}: 7 AX/VMS_ M ere v04-00 


-SEP-1 UETP.SRCIJRMSTESTS.MAR; 1 
RFA_OK101: 
56 F451 CF 3 MOVZWL peTeR «RO 
6 § ntt4 R6,R 
FASD CF 4 ADD #4 ,,COUNT 
; BEQL ~=s«éd108 
FF BRW GNEXT 
10$ RSB 
3; this is the error subroutine 
4 ; operation create 
5; connect 
§ 3 put 
3 be 
3 ge 
§ 5 update 
40 ; § delete 
41 ; close 
: : 8 rewind 
44 
45 END 


Page 
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INDEXED FILE TEST PROGRAM 


RMSTESTS 
Symbol table 
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o VVIVGIUVVNNU 
<= aeaecacae ecccc Qe @ecean eaca a 
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FO & COOCOCOOOCOOOOCSOoOoooO OOOCCSCOSSSSSSS #« COSCCSCSCCOCOCO ek eee RHEE EO 


a 
oO be 

o ~~ a COuw ow 

4 « “arozaa 2 wvoz><aoxaawann a o- = rreyeey oy ze 

vw vy YOW= IMM OC ee ae OU Ow uw oouw AZ«wa —< 

” 7 w2zenDowe - MEOOxweEKVMOCeE ae vaeaD a -—-—O08a CO2Zwi2ze-30 

we-w Oo mom @bteee t ace ff tt geewuuuud A0GwwD>wa 
ar Dore e Bee eee ae ee SS3s3d00d2222 ZD0000 + F&F VOovaunVAeD>e 
BAA BKC XK< Kr DHHHHKHAHA DST XWAHAHKHAHAHAPHAPHAAAAA ZOD 1 1! RH TFARKMHKGHHAHAKHGHOAX 
ZC OOowwwV1VE ££ E Eww ODMODMDOMMDOMDMOMDOMDMODMOOA €444 44H - NAWYYVYHNNYNYW 
JI ee See ee eee OZ rE Ev >>>>>>> >> Zz 
ween OOM IE SSSSSSSZZOVOASCSSeCeCCeeeeeeeeeeeeeeeeescewnnnnunnnwnnwnsds 
me wn KOCOOnr eee rere ——-—- OO MO 
oo o SOOCCCOOCOOOOOOCOSoO OOo 
2 a2000a0a AA 200 oo, coeeoeoaaacoa pe PO CCOHOREEOHEA00000000 
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INDEXED FILE TEST PROGRAM ; 19~360= 1388 0123): 38 a ae Macro V04-00 Page } 


UETP.SRCJRMSTESTS.MAR; 1 
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-) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. 1 1.) NOPIC USR CON REL GBL NOSHR EXE RD WRT NOVEC LON 

§ ( §°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

4 4.) NOPIC CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

5 5.) NOPIC CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
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4 UETP.SRCJRMSTESTS.MAR; 1 
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! Performance indicators ; 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 :00:00. :00:01.1 
Command processing 18 8; 0:00'5 : : “OS 
Pass 1 40 :00:19.9 :00: 18 
Symbol table sort :00:01.0 :00:02.1 
Pass uF :00:03.9 :00: o@f 
Symbol table output. 9 :00:00.1 :00:00. g 
Psect synopsis output 3 0:00:00.0 :00: 8°6 
Cross-reference output : 00:00: 99 : 7 2 
Assembler run totals 69 00:00:25.71 0:01:08.6 


The working set Limit was 1350 pages. 
95037 bytes (186 pages) of virtual memory were used to buffer the intermediate code. 
There were pages of symbol table space allocated to hold 861 non-local and 5 local symbols. 
545 source Lines were read in Pass 1, producing 67 object records in Pass 2. 
pages of virtual memory were used to define 44 macros. 
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Macros defined 


Macro Library name 

“B52 gSDUACE: bSVS-08J2L 16M 31 0 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 34 
TOTALS (all Libraries) 34 
1333 GETS were required to define 34 macros. 

There were no errors, warnings or information messages. 
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